From: Kim F. Storm <storm@cua.dk>
Date: Fri, 6 Feb 2004 23:59:57 +0000 (+0000)
Subject: (hscroll_window_tree): Position cursor near to right margin in hscrolled
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~24239
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=b46778b4d0be41d9d8f78a5ad163b3d5a7d2a4ed;p=emacs.git

(hscroll_window_tree): Position cursor near to right margin in hscrolled
window when jumping to end of line (rather than centering cursor).
---

diff --git a/src/xdisp.c b/src/xdisp.c
index 3241822e7b4..5186a8641c3 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -9562,7 +9562,10 @@ hscroll_window_tree (window)
 
 	      /* Position cursor in window.  */
 	      if (!hscroll_relative_p && hscroll_step_abs == 0)
-		hscroll = max (0, it.current_x - text_area_width / 2)
+		hscroll = max (0, (it.current_x
+				   - (ITERATOR_AT_END_OF_LINE_P (&it)
+				      ? (text_area_width - 4 * FRAME_COLUMN_WIDTH (it.f))
+				      : (text_area_width / 2))))
 		    	  / FRAME_COLUMN_WIDTH (it.f);
 	      else if (w->cursor.x >= text_area_width - h_margin)
 		{